#le dossier de sortie
my $repPoids = "./corpus_poids-lemmes/";
my $repCpt = "./corpus_comptage-lemmes/";
if(! -d $repPoids){
	mkdir ("./corpus_poids-lemmes/");
}

#le dossier décrivant les lemmes
opendir(DIR, $repCpt) || die "Impossible d'ouvrir le dossier $repCpt\n";
my @files = grep { /.lemmes$/ } readdir(DIR);
closedir DIR;

#le fichier avec les fréquences
open (TT, "<./corpus_docFreq.count") || die $!;
my $n;
my %dfi = ();
$n=-1;
while (my $ligne = <TT>){
	if($ligne=~ /^N=(\d*)$/){
		$n=$1;
	}
	if($ligne=~ /^(.*)\t(.*)$/){
		$dfi{$1}=$2;
	}
}
close TT;
if($n eq -1) { die "fichier de comptage faux : pas de N=107 pour donner la taille" };


for my $file (@files) {
	open (TT, "<$repCpt$file") || die $!;
	my %wid = ();
	while (my $ligne = <TT>){
		if($ligne=~ /^(.*)\t(.*)$/){
			$wid{$1}=$2*log($n/$dfi{$1});
		}
	}
	close TT;
	open (OUT, ">$repPoids/$file.poids") || die $!;
	for my $k(sort { $a cmp $b } keys(%wid)){
		print OUT "$k\t$wid{$k}\n";
	}
	close OUT;
}
